Plots

Eyes Closed Audio

cn_tab <- read.table(file = "OpenBCI-RAW-EyesClosedAudio.txt", skip = 6, sep = ",")
dim(cn_tab) # [1] 185345     13

## [1] 185345     13

for (i in 2:9) plot(cn_tab[,i], type = "l", main = paste(i - 1))

Eyes Closed meditate

tab0 <- read.table(file = "EyesClosed.txt", skip = 6, sep = ",")
dim(tab0) # [1] 11422    13

## [1] 11422    13

tab1 <- read.table(file = "EyesClosed (2).txt", skip = 6, sep = ",")
dim(tab1) # [1] 153309     13

## [1] 153309     13

cm_tab <- rbind(tab0, tab1)
for (i in 2:9) {
  plot(cm_tab[,i], type = "l", main = paste(i - 1)); abline(v = ncol(tab1), col = "red")
}

Eyes Open Movie

tab0 <- read.table(file = "OpenBCI-RAW-2017-11-09_14-58-55.txt", skip = 6, sep = ",")
dim(tab0) #131695     13

## [1] 131695     13

tab1 <- read.table(file = "OpenBCI-RAW-2017-11-09_15-09-17.txt", skip = 6, sep = ",")
dim(tab1) #105693     13

## [1] 105693     13

for (i in 2:9) plot(tab0[1:130000,i], type = "l", main = paste(i - 1))

for (i in 2:9) plot(tab1[,i], type = "l", main = paste(i - 1))

en_tab <- tab0

Eyes Open meditate

em_tab <- read.table(file = "OpenBCI-RAW-2017-11-09_15-38-15.txt", skip = 6, sep = ",")

## Warning in scan(file, what, nmax, sep, dec, quote, skip, nlines,
## na.strings, : number of items read is not a multiple of the number of
## columns

dim(em_tab) #123703     13

## [1] 123703     13

for (i in 2:9) plot(em_tab[1:120000,i], type = "l", main = paste(i - 1))